home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh31.d64 / listing 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  312b  |  17 lines
  1. 25 BLOAD"B.DEMO",8 BLOCK 31
  2. 26 :
  3. 30 REM LADEN DER TONDATEN
  4. 35 BLOAD"S.DEMO",8
  5. 36 :
  6. 40 REM ABSPIELEN DER BLOCKTABELLE
  7. 45 PLAY BLOCK 1 SPEED 10
  8. 50 REM BLOCK 2 MIT UNTERSCHIEDLICHEN
  9. 51 REM SPEEDWERTEN ABSPIELEN
  10. 52 :
  11. 55 FOR I=1TO5
  12. 56 QQ=INT (RND(TI)*8)+6
  13. 57 PLAY BLOCK 2 SPEED QQ
  14. 58 NEXT I
  15. 59 :
  16. 60 PLAY BLOCK 3 SPEED 10
  17.